home *** CD-ROM | disk | FTP | other *** search
/ AMIGA-CD 2 / Amiga-CD - Volume 2.iso / ungepackte_daten / 1995 / 5 / 03 / db.lzh / ARexx / mark.rexx < prev    next >
OS/2 REXX Batch file  |  1994-11-25  |  395b  |  31 lines
  1. /* mark */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. ADDRESS DataBase
  6.  
  7. DBtoFront
  8.  
  9. op = 2
  10.  
  11. DO FOREVER
  12.   PickField "Feld wählen"
  13.   IF RC ~= 0 THEN
  14.     EXIT
  15.   feld = result
  16.   RequestText "Muster eingeben"
  17.   muster = result
  18.   IF op = 2 THEN
  19.     MarkRange $F || feld muster
  20.   ELSE
  21.     DemarkRange $F || feld "~(" || muster || ")"
  22.   Request "_UND|_ODER|_Abbruch" "wat nu ?"
  23.   op = RC
  24.   IF op = 0 THEN
  25.     EXIT
  26. END
  27.  
  28. ADDRESS
  29.  
  30.  
  31.